perm filename ARITH.LSP[1,3] blob sn#080394 filedate 1977-02-07 generic text, type T, neo UTF8
(RPUTSYM FLONUM) 

(DEFPROP ARITH 
 (LAMBDA NIL
  (PROG NIL
	(GETSYM SUBR LSQRT LOG LOG10 LSIN LCOS LSIND LCOSD LACOS LASIN LATAN LSINH LCOSH LTANH LEXP LFLOAT RANDOM)
	(MAPC (FUNCTION
	       (LAMBDA(X)
		(PROG NIL
		      (PUTPROP (CAR X) (GET (CDR X) (QUOTE SUBR)) (QUOTE SUBR))
		      (REMPROP (CDR X) (QUOTE SUBR)))))
	      (QUOTE
	       ((SQRT . LSQRT) (SIN . LSIN)
			       (COS . LCOS)
			       (SIND . LSIND)
			       (COSD . LCOSD)
			       (ACOS . LACOS)
			       (ASIN . LASIN)
			       (ATAN . LATAN)
			       (SINH . LSINH)
			       (COSH . LCOSH)
			       (TANH . LTANH)
			       (EXP . LEXP)
			       (FLOAT . LFLOAT)))))) 
EXPR)